home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2003 December
/
Chip_2003-12_cd1.bin
/
software
/
poco
/
pocosetup.exe
/
{app}
/
Poco.exe
/
0
/
RCDATA
/
TFRMNNTP
/
TFRMNNTP.txt
Wrap
Text File
|
2003-07-29
|
8KB
|
339 lines
object FrmNNTP: TFrmNNTP
Left = 295
Top = 117
Width = 407
Height = 398
BorderIcons = [biSystemMenu]
Caption = 'Newsgroups'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDefaultPosOnly
Scaled = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 16
object PnlTop: TPanel
Left = 0
Top = 0
Width = 399
Height = 62
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 10
Width = 115
Height = 16
Caption = '&Newsgroup Server:'
end
object Label2: TLabel
Left = 8
Top = 36
Width = 122
Height = 16
Caption = 'Optional, &Username:'
FocusControl = EditUsername
end
object Label3: TLabel
Left = 230
Top = 36
Width = 63
Height = 16
Caption = '&Password:'
FocusControl = EditPassword
end
object EditUsername: TEdit
Left = 140
Top = 33
Width = 79
Height = 24
TabOrder = 0
end
object EditPassword: TEdit
Left = 312
Top = 33
Width = 79
Height = 24
PasswordChar = '*'
TabOrder = 1
end
object EditServer: TComboBox
Left = 140
Top = 7
Width = 251
Height = 24
ItemHeight = 16
TabOrder = 2
end
end
object PnlBottom: TPanel
Left = 0
Top = 320
Width = 399
Height = 38
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
DesignSize = (
399
38)
object BtnOK: TButton
Left = 202
Top = 4
Width = 93
Height = 30
Anchors = [akTop, akRight]
Cancel = True
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 0
OnClick = BtnOKClick
end
object BtnCancel2: TButton
Left = 302
Top = 4
Width = 93
Height = 30
Anchors = [akTop, akRight]
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
end
object PageControl1: TPageControl
Left = 0
Top = 62
Width = 399
Height = 258
ActivePage = Tab2
Align = alClient
TabIndex = 1
TabOrder = 1
object Tab1: TTabSheet
Caption = 'Subscribed Groups'
object lbSubscribed: TListBox
Left = 0
Top = 0
Width = 391
Height = 208
Align = alClient
BorderStyle = bsNone
ItemHeight = 16
TabOrder = 0
end
object PnlUnsubscribe: TPanel
Left = 0
Top = 197
Width = 391
Height = 30
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object BtnUnsubscribe: TButton
Left = 2
Top = 4
Width = 118
Height = 25
Caption = 'Unsubscribe'
TabOrder = 0
end
end
end
object Tab2: TTabSheet
Caption = 'All Groups'
ImageIndex = 1
object PnlAllList: TPanel
Left = 0
Top = 0
Width = 391
Height = 227
Align = alClient
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
391
227)
object GroupTree: TElTree
Left = 0
Top = 28
Width = 391
Height = 169
Cursor = crDefault
LeftPosition = 0
DragCursor = crDrag
Align = alClient
AutoCollapse = False
DockOrientation = doNoOrient
DefaultSectionWidth = 120
BorderStyle = bsNone
BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
DoInplaceEdit = False
ExplorerEditMode = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
GradientSteps = 64
HeaderHeight = 19
HeaderHotTrack = False
HeaderSections.Data = {F4FFFFFF00000000}
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -13
HeaderFont.Name = 'MS Sans Serif'
HeaderFont.Style = []
HorzScrollBarStyles.ShowTrackHint = False
HorzScrollBarStyles.Width = 17
HorzScrollBarStyles.ButtonSize = 21
IgnoreEnabled = False
IncrementalSearch = False
KeepSelectionWithinLevel = False
LineBorderActiveColor = clBlack
LineBorderInactiveColor = clBlack
LineHeight = 17
MouseFrameSelect = True
MultiSelect = False
OwnerDrawMask = '~~@~~'
ScrollbarOpposite = False
ScrollTracking = True
ShowCheckboxes = True
ShowLeafButton = False
SortType = stCustom
StoragePath = 'Tree'
TabOrder = 1
TabStop = True
Tracking = False
UseCustomScrollBars = False
VertScrollBarStyles.ShowTrackHint = True
VertScrollBarStyles.Width = 21
VertScrollBarStyles.ButtonSize = 8
VirtualityLevel = vlNone
OnItemChecked = GroupTreeItemChecked
OnItemExpand = GroupTreeItemExpand
end
object PnlSearch: TPanel
Left = 0
Top = 0
Width = 391
Height = 28
Align = alTop
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
391
28)
object Label4: TLabel
Left = 8
Top = 4
Width = 46
Height = 16
Caption = '&Search:'
FocusControl = EditSearch
end
object EditSearch: TEdit
Left = 63
Top = 2
Width = 324
Height = 24
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
OnChange = EditSearchChange
end
end
object PnlDownloading: TPanel
Left = 66
Top = 42
Width = 258
Height = 80
Anchors = [akLeft, akTop, akRight]
Caption = 'Downloading list of groups...'
TabOrder = 2
Visible = False
DesignSize = (
258
80)
object BtnCancel: TButton
Left = 155
Top = 52
Width = 98
Height = 24
Anchors = [akTop, akRight]
Cancel = True
Caption = 'Cancel'
TabOrder = 0
OnClick = BtnCancelClick
end
end
object Panel1: TPanel
Left = 0
Top = 197
Width = 391
Height = 30
Align = alBottom
BevelOuter = bvNone
TabOrder = 3
object BtnSubscribe: TButton
Left = 2
Top = 4
Width = 118
Height = 25
Caption = '&Subscribe'
TabOrder = 0
OnClick = BtnSubscribeClick
end
object BtnList: TButton
Left = 128
Top = 4
Width = 118
Height = 25
Caption = '&Refresh List'
TabOrder = 1
OnClick = BtnListClick
end
object cbHide: TCheckBox
Left = 258
Top = 8
Width = 124
Height = 17
Caption = '&Hide junk groups'
Checked = True
State = cbChecked
TabOrder = 2
OnClick = cbHideClick
end
end
end
end
end
object NNTP: TmsNNTPClient
Version = '2.02'
Port = 119
OnTransferProgress = NNTPTransferProgress
Authorization = False
Left = 132
Top = 174
end
object Article: TmsArticle
ContentType = 'text/plain'
Version = '2.02'
Left = 424
Top = 232
end
object TimerType: TTimer
Enabled = False
OnTimer = TimerTypeTimer
Left = 238
Top = 172
end
end